;redcode
;name FI V1
;author PVK, but don't tell anyone
;assert 1

	Org Scan-1
x	equ	(scan-15); neat trick: since the two scan positions are 15 cells apart, moving the b-field to
 			 ;scan-15 points directly to scan+x 8)

clear	spl	#-5,	{-2 ;not sure about the {-2
	mov	@4,	{4
	jmp	-1,	<-4
db	dat.f	-5,	-5
	spl	#-100,	-100
inc	dat.f	31,	30
sb	spl	#1,	0
for 22
	spl	#0,0
rof
	add.x	inc,	1
scan	mov.i	<-2,	{13
	jmz.f	-2,	<-1
chkself	slt.ab	scan,	#-8
	djn.f	scan-1,	scan
	jmp	attack,	-100;i think that this line is hit, if not, i'll just o the b-field
db2	dat.f	-5,	-5;inc's b-field point to this line
for 9
	dat.f	-100,	-100 ; might not be needed, except for the 1st one, but i'm not sure
rof
attack	mov.b	scan,	x
	mov.i	sb,	<x
	mov.i	>x,	>x
	jmn.f	-2,	>x
check	jmn.b	scan-1,	-1
	jmp clear